home *** CD-ROM | disk | FTP | other *** search
/ La Bible Des… Fonts / La Bible des... Fonts.iso / Utilitaires / Mac GS Viewer 1.0 / files / ps2epsi.ps < prev    next >
Text File  |  1995-04-24  |  6KB  |  190 lines
  1. %    Copyright (C) 1990, 1991, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Convert an arbitrary PostScript file to an EPSI file.
  19. %
  20. %    NOTE: this file was contributed by a user: please contact
  21. %    George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
  22. %    if you have questions.
  23. %
  24.  
  25. % Initialize, and redefine copypage and showpage.
  26. /ps2edict 25 dict def
  27. ps2edict begin
  28.  
  29.                 % The main procedure
  30.   /ps2epsi
  31.    {                % Open the file
  32.      outfile (w) file /epsifile exch def
  33.                     % Get the device parameters
  34.      currentdevice getdeviceprops .dicttomark
  35.      /HWSize get aload pop
  36.        /devheight exch def
  37.        /devwidth exch def
  38.      matrix defaultmatrix
  39.        /devmatrix exch def
  40.                 % Make a corresponding memory device
  41.      devmatrix devwidth devheight <ff 00>
  42.      makeimagedevice
  43.      /arraydevice exch def
  44.      arraydevice setdevice    % (does an erasepage)
  45.      /rowwidth devwidth 7 add 8 idiv def
  46.      /row rowwidth string def
  47.                 % Replace the definition of showpage
  48.      userdict /showpage { ps2edict begin epsipage end } bind put
  49.    } def
  50.  
  51.  /margintest
  52.  {
  53.       { dup arraydevice exch row copyscanlines pop
  54.     -1 0 1 rowwidth 1 sub
  55.     { dup row exch get 0 ne { exit }{ pop } ifelse
  56.     } for
  57.     dup -1 ne { exch pop } if
  58.     -1 ne { exit } if pop
  59.       } for
  60.  } bind def
  61.  
  62.   /epsipage
  63.    {
  64.      /loopcount devheight 1 sub def
  65.  
  66.      % Find top margin
  67.      -1 0 1 loopcount margintest
  68.      dup -1 eq { (blank page!!\n) print 0 .quit }{ exch pop } ifelse 
  69.      /tm exch def
  70.  
  71.      % Find bottom margin
  72.      loopcount -1 0 margintest
  73.      /bm exch def
  74.      
  75.      % Initialise limit variables
  76.      /loopcount rowwidth 1 sub def
  77.      /lm loopcount def /lmb 0 def
  78.      /rm 0 def /rmb 0 def
  79.  
  80.      % Find left and right boundaries of image
  81.      tm 1 bm
  82.       { % Get more data
  83.     arraydevice exch row copyscanlines pop
  84.     % Scan from left to find first non-zero element
  85.     % We save first the element, then the index
  86.     -1 0 1 loopcount
  87.     { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  88.     } for
  89.     % If we found -1, row is blank ..
  90.     dup -1 ne 
  91.     { % Find the leftmost index
  92.           dup lm lt
  93.           % If the new index is less, we save index and element
  94.           { /lm exch def /lmb exch def }
  95.           % If the index is equal, we or the bits together
  96.           { lm eq { lmb or /lmb exch def }{ pop } ifelse
  97.           } ifelse
  98.       % Now find the rightmost index
  99.       loopcount -1 0
  100.           { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  101.           } for
  102.       dup rm gt
  103.           % If the new index is greater, we save index and element
  104.           { /rm exch def /rmb exch def }
  105.           % If the index is equal, or the bits
  106.           { rm eq { rmb or /rmb exch def } { pop } ifelse
  107.           } ifelse
  108.     } if
  109.     pop
  110.       } for
  111.  
  112.      % Now we find the real left & right bit positions
  113.      256 0 1 7
  114.      { exch 2 div dup lmb le { pop exit }{ exch pop } ifelse
  115.      } for
  116.      /lmb exch def
  117.  
  118.      1 7 -1 0
  119.      { exch dup dup rmb and eq { pop exit }{ 2 mul exch pop } ifelse
  120.      } for
  121.      /rmb exch def
  122.  
  123.      % Calculate the bounding box values
  124.      /llx lm 8 mul lmb add def
  125.      /lly devheight bm sub def
  126.      /urx rm 8 mul rmb add def
  127.      /ury devheight tm sub def
  128.  
  129.      % Write out the magic string and bounding box information
  130.      epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
  131.      epsifile (%%BoundingBox: ) writestring
  132.      epsifile llx write==only epsifile ( ) writestring
  133.      epsifile lly write==only epsifile ( ) writestring
  134.      epsifile urx write==only epsifile ( ) writestring
  135.      epsifile ury write==
  136.      epsifile (%%BeginPreview: ) writestring
  137.      epsifile urx llx sub 1 add write==only epsifile ( ) writestring
  138.      epsifile bm tm sub 1 add write==only epsifile ( 1 ) writestring
  139.      epsifile bm tm sub 1 add write==
  140.  
  141.      % Define character and bit widths for the output line buffer
  142.      /cwidth rm lm sub 1 add 8 mul 7 add 8 idiv def
  143.      /bwidth cwidth 8 mul def
  144.      /owidth urx llx sub 1 add 7 add 8 idiv def
  145.      /out cwidth string def
  146.  
  147.      % Create a 1-bit-high device for bitblt to align with the bbox
  148.      gsave
  149.      matrix cwidth 8 mul 1 <00 ff> makeimagedevice setdevice
  150.  
  151.      % 'image' a zero string to clear the line device
  152.      bwidth 1 1 matrix cwidth string image
  153.  
  154.      tm 1 bm
  155.       { % Get a scan line interval from the array device
  156.     arraydevice exch row copyscanlines lm cwidth getinterval
  157.     lmb 0 gt
  158.     { % 'image' it into the line device with the lmb offset
  159.       bwidth 1 1 [1 0 0 1 lmb 0] 5 -1 roll image
  160.       % Now we get the modified scan line
  161.       currentdevice 0 out copyscanlines 0 owidth getinterval
  162.     } if
  163.     % Write out the hex data
  164.     epsifile (% ) writestring 
  165.     epsifile exch writehexstring
  166.     epsifile (\n) writestring
  167.       } for
  168.  
  169.      epsifile (%%EndImage\n) writestring
  170.      epsifile (%%EndPreview\n) writestring
  171.      epsifile flushfile
  172.      grestore
  173.      erasepage initgraphics
  174.  
  175.      DonePage 0 1 put
  176.    } bind def
  177.  
  178.  
  179. (outfile) getenv
  180.   { /outfile exch def 
  181.     ps2epsi
  182.  
  183.     /DonePage 1 string def
  184.     (%stdin) (r) file cvx execute0
  185.     DonePage 0 get 0 eq { showpage } if
  186.   } if
  187.  
  188. end
  189. quit
  190.